Public Class TextItem
    Public Label As String
    Public Data As String

    Public Sub New(ByVal strLabel As String, ByVal strData As String)
        Label = strLabel
        Data = strData
    End Sub
End Class
